home *** CD-ROM | disk | FTP | other *** search
/ NBC Slam Jams! / NBC Slam Jams!.iso / xtras / media_la / effector.cst / 00008_Script_Rotate < prev    next >
Text File  |  1997-09-30  |  1KB  |  43 lines
  1. -- Rotate
  2.  
  3.  
  4.  
  5.  
  6. Property angle,pInterp
  7.  
  8. on getPropertyDescriptionList
  9.   if not alphamaniacCheck(the currentSpriteNum) then exit
  10.   set pList=[:]
  11.   addProp pList,#Angle,[format:#integer,comment:"Rotation angle:",¼
  12.                         Default:0,range:[min:-180,max:180]]
  13.   addProp pList,#pInterp,[format:#symbol,comment:"Interpolation:",¼
  14.                           Default:#On,range:[#Off,#On,#Paused]]
  15.   
  16.   return pList
  17. end
  18.  
  19. on beginSprite me
  20.   set s=the spriteNum of me
  21.   if not alphaManiac(s) then exit
  22.   
  23.   set pInterp=interpolation(pInterp)
  24.   rotate(sprite s,[degrees:angle,interpolation:pInterp])
  25. end
  26.  
  27. on slideRotate me, slider, p
  28.   set s=the spriteNum of me
  29.   if not alphaManiac(s) then exit
  30.   
  31.   set angle=((p*360) / 100) - 180
  32.   rotate(sprite s,[degrees:angle])
  33. end
  34.  
  35. on getBehaviorDescription me
  36.   set msg= "Rotate any alphamania sprite to an arbitrary angle!"
  37.   put return & return after msg
  38.   put "Parameters:" & return & "-----------" & return  after msg
  39.   put "*  Rotation Angle : -360 to 360 degrees.  0 is no rotation" & return after msg
  40.   put "*     Interpolation : On,Off,or While Paused" after msg
  41.   put return & "-----------" & return & return  & ">>>" && amTip()  after msg
  42.   return msg
  43. end